home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 008a / feb93cad.zip / TIP844.LSP < prev    next >
Text File  |  1993-01-14  |  655b  |  22 lines
  1. ;TIP844: PF.LSP (C)1993, JAMES "DUSTY" RAY
  2.  
  3. ; PF.LSP is a routine to fillet 2 plines. First entity picked controls pwidth
  4. ; of both selections. Fillet radius is set normally. James "Dusty" Ray 6-15-92.
  5. (defun c:PF (/ a b r th v1)
  6.  (setvar "cmdecho" 0)
  7.  (setq v1 (ssget))
  8.  (setq a (ssname v1 0))
  9.  (setq b (ssname v1 1))
  10.  (setq th (cdr (assoc 40 (entget a))))
  11.  (setq r (getvar "filletrad"))
  12.  (command "explode" a)
  13.  (setq a (entlast))
  14.  (command "explode" b)
  15.  (setq b (entlast))
  16.  (command "fillet" a b)
  17.  (if (> r 0) (command "pedit" (entlast) "" "w" th ""))
  18.  (command "pedit" a "" "w" th "")
  19.  (command "pedit" b "" "w" th "")
  20.  (princ)
  21. )
  22.